home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / progs / thor / fse / forward.fse < prev    next >
Text File  |  1996-11-10  |  259b  |  17 lines

  1. /* Custom-quoting */
  2.  
  3. delete = '7F'x
  4.  
  5. options results
  6.  
  7. ISFIRSTCALL
  8. if (result = 'ON') then do
  9.   SENDER
  10.   if (result ~= "") then do
  11.     name = result
  12.     INSERTLINES 2
  13.     SENDERDATE
  14.     INSERTINPUT name||" wrote "||result||" the following:"||delete
  15.   end
  16. end
  17.